home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 22 / Amiga Format AFCD22 (Jan 1998, Issue 106).iso / -readerstuff- / d_keletsekis / tools / config.gc < prev    next >
Text File  |  1997-10-03  |  3KB  |  109 lines
  1. G4C
  2.  
  3. ; Ripped this off CliMaster..
  4.  
  5. WINBIG -1 -1 505 163 "Players Configuration"
  6. wintype 11110001
  7.  
  8. BOX 0 0 0 0 out button
  9.  
  10. xonload
  11. gosub Config.gc loadprefs
  12. guiopen Config.gc
  13.  
  14. xonclose
  15. ifexists file env:.dir.prefs
  16.     delete env:.dir.prefs
  17. endif
  18. guiquit Config.gc
  19.  
  20. ; -------------- the listview
  21.  
  22. XLISTVIEW 6 4 493 124 "" cfg_lvline "" 0 txt
  23. gadid 1
  24. gadfont topaz.font 8 000
  25. cgf_lvnum = $$LV.LINE
  26. cutvar cfg_lvline cut word 1 cfg_var    ; get variable name
  27. cutvar cfg_lvline cut word 1 ""         ; cut off the = character
  28. extract cfg_lvline unquote cfg_prog     ; clean-up program name
  29. update Config.gc 2 $cfg_prog
  30. setgad Config.gc 2 on
  31.  
  32. ; -------------- The buttons
  33.  
  34. XBUTTON 10 145 100 14 "Save"
  35. gosub Config.gc saveprefs
  36. guiquit Config.gc
  37.  
  38.  
  39. XBUTTON 115 145 100 14 "Use"
  40. guiquit Config.gc
  41.  
  42.  
  43. XBUTTON 455 145 20 14 "«"
  44. lvuse Config.gc 1
  45. lvmove -5
  46.  
  47.  
  48. XBUTTON 475 145 20 14 "»"
  49. lvuse Config.gc 1
  50. lvmove 5
  51.  
  52.  
  53. XTEXTIN 10 130 486 14 "" cfg_prog "" 512
  54. gadid 2
  55. gosub Config.gc updatelist
  56.  
  57.  
  58. XBUTTON 365 145 87 14 "Browse"
  59. reqfile -1 -1 300 -40 "Select File..." load cfg_prog SYS:
  60. update Config.gc 2 $cfg_prog
  61. setgad Config.gc 2 on
  62. gosub Config.gc updatelist
  63.  
  64.  
  65. ; -------------- Routines
  66.  
  67. xroutine loadprefs
  68. setvar .dir.prefs ""
  69. gosub Config.gc addprefs
  70. lvuse Config.gc 1
  71. lvchange env:.dir.prefs
  72.  
  73. xroutine saveprefs
  74. setvar .dir.prefs "G4C - Players\n\nxOnLoad\n"
  75. gosub  Config.gc addprefs
  76. append env:.dir.prefs "GuiQuit Players\n" 
  77. copy env:.dir.prefs guis:tools/prefs/players
  78.  
  79. xroutine addprefs
  80. append env:.dir.prefs '*DEF.EDITOR    = \"$*DEF.EDITOR\"\n'
  81. append env:.dir.prefs '*DEF.ILBM      = \"$*DEF.ILBM\"\n'
  82. append env:.dir.prefs '*DEF.ANIM      = \"$*DEF.ANIM\"\n'
  83. append env:.dir.prefs '*DEF.GIF       = \"$*DEF.GIF\"\n'
  84. append env:.dir.prefs '*DEF.JPG       = \"$*DEF.JPG\"\n'
  85. append env:.dir.prefs '*DEF.GFX       = \"$*DEF.GFX\"\n'
  86. append env:.dir.prefs '*DEF.PAINT     = \"$*DEF.PAINT\"\n'
  87. append env:.dir.prefs '*DEF.GFXCON    = \"$*DEF.GFXCON\"\n'
  88. append env:.dir.prefs '*DEF.8SVX      = \"$*DEF.8SVX\"\n'
  89. append env:.dir.prefs '*DEF.MOD       = \"$*DEF.MOD\"\n'
  90. append env:.dir.prefs '*DEF.GUIDE     = \"$*DEF.GUIDE\"\n'
  91. append env:.dir.prefs '*DEF.LHA       = \"$*DEF.LHA\"\n'
  92. append env:.dir.prefs '*DEF.ZIP       = \"$*DEF.ZIP\"\n'
  93. append env:.dir.prefs '*DEF.UNZIP     = \"$*DEF.UNZIP\"\n'
  94. append env:.dir.prefs '*DEF.HEX       = \"$*DEF.HEX\"\n'
  95. append env:.dir.prefs '*DEF.PP        = \"$*DEF.PP\"\n'
  96. append env:.dir.prefs '*DEF.PPM       = \"$*DEF.PPM\"\n'
  97. append env:.dir.prefs '*DEF.TGA       = \"$*DEF.TGA\"\n'
  98. append env:.dir.prefs '*DEF.PNG       = \"$*DEF.PNG\"\n'
  99. append env:.dir.prefs '*DEF.FONT      = \"$*DEF.FONT\"\n'
  100.  
  101. xroutine updatelist
  102. setvar $cfg_var '$cfg_prog'
  103. setvar .dir.prefs ""
  104. gosub Config.gc addprefs
  105. lvuse Config.gc 1
  106. lvchange env:.dir.prefs
  107.  
  108.  
  109.